home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 1 / MacMania 1.toast / Educational / Misc. / Save the Planet 1991 2.11 / background_45939.txt < prev    next >
Text File  |  1991-05-30  |  4KB  |  160 lines
  1. -- background: 45939 from stack: in.11
  2. -- bmap block id: 46145
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0000
  11. -- rect: left=26 top=165 right=264 bottom=346
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 22
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 01
  24. -- high flags: 0000
  25. -- rect: left=324 top=70 right=136 bottom=507
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: 
  34.  
  35.  
  36. -- part 4 (button)
  37. -- low flags: 00
  38. -- high flags: 0000
  39. -- rect: left=476 top=21 right=57 bottom=512
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: New Button
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   visual effect iris close
  51.   pop card
  52. end mouseUp
  53.  
  54.  
  55.  
  56. -- part 5 (button)
  57. -- low flags: 00
  58. -- high flags: 0000
  59. -- rect: left=411 top=21 right=54 bottom=443
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: New Button
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   visual effect wipe left
  71.   go to previous card
  72. end mouseUp
  73.  
  74.  
  75.  
  76. -- part 6 (button)
  77. -- low flags: 00
  78. -- high flags: 0000
  79. -- rect: left=444 top=21 right=54 bottom=475
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: New Button
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   visual effect wipe right
  91.   go to next card
  92. end mouseUp
  93.  
  94.  
  95.  
  96. -- part 7 (button)
  97. -- low flags: 00
  98. -- high flags: 8003
  99. -- rect: left=332 top=27 right=50 bottom=403
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Select
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   set cursor to watch
  111.   put "                                     " into blanks
  112.   put blanks &" " & line 1 of card field 1 of card "address" into line 1 of field 1 of card "letter"
  113.   put blanks &" " & line 2 of card field 1 of card "address" into line 2 of field 1 of card "letter"
  114.   put blanks &" " & line 3 of card field 1 of card "address" into line 3 of field 1 of card "letter"
  115.   put "" into line 4 of field 1 of card "letter"
  116.   put the long date into temp
  117.   put blanks & second item of temp & "," & third item of temp into line 5 of field 1 of card "letter"
  118.   put "" into line 6 of field 1 of card "letter"
  119.   put line 1 of field 1 into line 7 of field 1 of card "letter"
  120.   put line 2 of field 1 into line 8 of field 1 of card "letter"
  121.   put line 3 of field 1 into line 9 of field 1 of card "letter"
  122.   put "" into line 10 of field 1 of card "letter"
  123.   put line 6 of field 1 into line 11 of field 1 of card "letter"
  124.   put "" into line 12 of field 1 of card "letter"
  125.   put "" into line 13 of field 1 of card "letter"
  126.   put "" into line 14 of field 1 of card "letter"
  127.   put "" into line 15 of field 1 of card "letter"
  128.   put "Sincerely," into line 16 of field 1 of card "letter"
  129.   put "" into line 17 of field 1 of card "letter"
  130.   put "" into line 18 of field 1 of card "letter"
  131.   put line 1 of card field 1 of card "address" into line 19 of field 1 of card "letter"
  132.   put "" into line 20 of field 1 of card "letter"
  133.   put "" into line 21 of field 1 of card "letter"
  134.   put "" into line 22 of field 1 of card "letter"
  135.   put "" into line 23 of field 1 of card "letter"
  136.   put "" into line 24 of field 1 of card "letter"
  137.   set cursor to hand
  138.   go to card "letter"
  139. end mouseUp
  140.  
  141.  
  142.  
  143. -- part 9 (button)
  144. -- low flags: 00
  145. -- high flags: 0000
  146. -- rect: left=444 top=55 right=70 bottom=475
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 0 / 0
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: New Button
  155. ----- HyperTalk script -----
  156. on mouseUp
  157.   show 7 cards
  158. end mouseUp
  159.  
  160.